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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS eae UNDER A LICENSE AND MAY BE USED AND sore 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biCoaee AND hd THE 
INCLUSION OF THE ABOVE git NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® 
® 
® 
ot 
® 
* 
® 
® 
® 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
te 
* 
® 
w 
sd 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Linker 
ABSTRACT 
Sort a list of isect descriptor addresses into virtual address order 
ENVIRONMENT 
Native mode, user mode 
AUTHOR 
Benn Schreiber, 17-Jan-1980 
MODIFIED BY 


v02-003 BLS0007 Benn Schreiber 15-Aug-1980 
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ispsoe not Me S Seeeren descriptors “ ot a bs 9 ga'23:6) AX/VMS Macro V04-00 Page A 
9 ; -sbttl Declarations | 
; Symbol defintions | 
é Sisddef idefine isect descriptor | 
§ Sisidef sdefine isect List descriptor 
0000 8 -psect S$code$,exe,nowrt 


0 
00000028 Bop8809 446 od 6900 ° 1 60 steps: .long 1, 4, 13, 40, 121, 364, 1093, 3280, 9841, 32767 ;Steps for shellsort 
80 ores 
0000 0 
0 
0 


1 
; 6} numsteps = .-steps/4 
§§ default displacement ,word 
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v04-000 Lnk$sortisects sort image section descri 5-SEP-1984 01:42:10 CLINKER.SRCJISDSORT.MAR; 1 ) 


8 $3 -sbttl Ink$sortisects sort image section descriptors 
6 $ 34+ 
8 83 3; Inputs: 
0 71; 4(ap) number of entries in List 
8 i 3 8(ap) Address of List of leect " desarintet addresses 
00 74 ; Outputs: 
tae the List {s sorted 
; e List is sorte 
ne 
O7FC 4 ; eentry Ink$sortisects,“m<r2, r3, r4, 75, r6, r7, 78, r9, r10> 
002A 81; 
002A Hf 3; determine highest step to use 
Bash 85 ; 
5A D4& O02A 84 clrl r10 sindex starts at 0 
50 04 aC 00 OEE 85 mov l 4(ap),r0 At number of keys 
50 D4 AF4A D1 0030 86 108: cmpl steps+8[r10],r0 his RH high enough? 
09 418 0035 87 bgeq 208 if g q yes 
FFF3 SA 01 O7 F1 0037 88 acbl Sap pel #1,r10, 108: no-={a0 through all - 3 
5A 07 09 003D 89 movl #<numsteps-3>,r1 16 ;lots of symbols--use all otepe 
7E O8 AC 04 C3 0040 90 20$: subl3 #4,8(ap), =-(sp) sset table address-4 on sta 
50 DD 0045 91 pushl 0 sset # of entries on stack 
01 6E »D1 0047 38 cmol (sp) ,#1 sIf there are not at least two entries 
49 1B Shee § blequ sort exit 3 then quit now 
004C 95 ; now do the shell sort on the iist. The shell sort is described in 
Opec 38 3; Knuth Vol. 3 and is also referred to as the Diminishing Increment Sort. 
004C 98 shell_sort: 
59 BO AF4A 00 004C 99 108: mov syegeCr}0l. v9 sget step value for this ‘'t'’ 
58 01A9 9€ 0051 £100 movab set up loop for step+1 to ind 
56 04 BE48 00 0055 101 20$: mov a4(s fe53, r6 et address of key block Boon i" "th key 
57 58 59 C3 OOSA 19 subl3)  r9,r8,r7 :i=jeh 
54 04 BE47 00 444 103 30$: movl a4 ts str7), r4 sget address of hey block for i'th key 
5 00 B30 ioe 40$: extzv #isd3v_vpn *MisdSs vpn,.~ ;extract the , ven of the isect 
50 —1C AG 066 105 is($t hdrtsd+{sd8t _vpnpfe (r4 
5 00 ED 0069 196 cmpzv _ #isd$v =vpn niga $s_vpn and compare 
50 1C A6 006c 1 s($t *hdrisdeisdst. “vpnp tetra), —y and compare them 
1F oof 198 blss +e 
50 59 C1 1 109 50$: addl r ; compute ith 
04 BESO 6 00 75 =110 mov l r6 tse cr0] sids(ith) = val 
10 11 007A 111 brb ? $ 
50 59 C1 7C 6 60$ addl3 sids(ith) = ids(i) 
04 BESO 854 09 g 11 mov r4 “54 5p)Cr03 
57 ee - 114 subl2 sizich 
D4 «14 B 115 bgtr of 
E5 11 OOB8A 116 brb go set ids(ith)=val 
FFC3 58 01 gf Fi 8 117 70$: acbl ‘sp sh #1,7r8,20$ oop for all entries in table 
B7 SA F4 9 113 80$: sobgeq sloop for all steps 
9 119 sort_exit: 
04 Bae 39 ret 
96 121 


ee 


L1 
v8e=000 ink simDeEetst on SHSCEIP LOTS on ge descri 'S-SEP-198¢ O1:42:10 LCINKeR.sRedispsontoman:1 "29° ¢$) 


0096 122 ~END 


Symbol table 


zamawD wD 
a 


00 ¢ 0.) NOPIC 
( 1.) NOPIC 
02 ¢ 2.) NOPIC 


Sew ene ewe wen ete mee eee} 


ISD$L_VPNPFC 5 04 
1SD$S_VPN = 15 
SD$V_VPN z 0 
ISLSB_NEWPRT 8 1 
ISLSC_SIZE 1 
ISLSK_SIZE 88 1 
ISLS$L—BUFADR 00 
ISLSL_BUFDSC 44h 
ISLSL_BUFEND 4 0 3 
ISL$L_CLUDSC Ben 
BEE Met bo see 
ISL$T-HDRISD $6000%8 
ISL$W_FLAGS SPOR OSE 
LNKSSORTISECTS 44 4644 
NUMSTEPS = QQ00000A 
SHELL_SORT sil ed 
SORT_EXIT 0000009 
Ps 00000000 
name ocation 
PSECT ALL ti 
- ABS . 00000000 
$SABSS$ 00000018 
SCODES 00000096 
Phase Page faults 
Initialization 29 : 
Command processing 129 00: 
Pass 1 146 00: 
Symbol table sort 0 00: 
Pass 2 45 00: 
Symbol table output 4 00: 
Psect synopsis output 1 00: 
Cross-reference output 0 8 : 
Assembler run totals 356 : 


The working set Limit was 1200 pages. 
6331 bytes (13 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 84 non-local and 10 local symbols. 
122 source Lines were read in Pass 1, producin 
9 pages of virtual memory were used to define 
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XE NORD NOWRT 
XE RD RT 
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VAX=-11 Macro Run Statistics 
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! Macro Library statistics ! 


¢oeeeeocesoeeeseeeeeeeece coos $f 


Macro Library name Macros defined 
.$255$DUA28: (SYS.OBJJLIB.MLB;1 1 
“$255$DUA28: LINKER.OBJJLNK. MLB; 1 1 
“$255$DUA28: SYSLIBISTARLE?. MLB;2 3 

TOTALS (all libraries) 5 


148 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: 1SDSORT/OBJ=0BJ$: I1SDSORT MSRC$:ISDSORT/UPDATE=(ENHS$: ISDSORT) +LIB$:LNK/LIB+EXECML$/L!B 
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